home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Ver Disp 11.xpl < prev    next >
Text File  |  2001-04-15  |  1KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Information\Core"
  5. "NAME"="DirectX Information"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Version"
  9. "TEXT 2"="Build Number"
  10. "DESCRIPTION 1"="This plug-in displays some information about DirectX on your system. You can't change anything!!!"
  11. "DESCRIPTION 2"="Recommended for use with DirectX 7 or higher, but may work with prior versions as well."
  12. "AUTHOR"="Xteq Systems (CptSiskoX)"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"=" "
  17.  
  18.  
  19. sP="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectX\"
  20. sV1="InstalledVersion"
  21. sV2="Version"
  22. sV3="SystemRoot"
  23. sV4="InstallDate"
  24. sV5="CurrentBuild"
  25.  
  26. Sub Plugin_Initialize 
  27.  if GetWinVer=2 or GetWinVer=4 or GetWinVer=6 then
  28.     s=RegReadValue(sP & sV1)
  29.     Call SetUIElement(1,s)
  30.  
  31.     s=RegReadValue(sP & sV2)
  32.     Call SetUIElement(2,s)
  33.  
  34.  else
  35.     Call SetUIElement(1,"N/A")
  36.     Call SetUIElement(2,"N/A")
  37.  end if
  38.  
  39.  
  40.  Call Disable 'user can't change anything!
  41. End Sub
  42.  
  43. Sub Plugin_CheckData(ElementIndex)
  44. End Sub
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47. End Sub
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.